SCENE 41, shop, SCENE, "MoR-Mart", 0,0
	ACTOR 1, "Salesman", ronnie, 1,35, 85
	ACTOR 2, "Vending Machine", other_large, 5,15,75
	GIVE M9999
	GIVE L9999
	IF T710, @normal
	1: Welcome to the MoR-Mart!
	1: Oh, this is yor first time?
	1: Well then, welcome! This is the only quick stop shop in Master of Reality!
	1: I can sell you all the equipment you want for a small price!
	1: Behind me is a vending machine, which sells drinks for only 75 gold.	
	1: Every time you buy a drink, you have a 1 in 25 chance of winning your own vending machine!
	1: So buy a ton!
	GIVE T710
@normal 
COMPARE #<num.hostLevel>, 89
IF> @sellequipfix
	SET lowLevel, #<num.hostLevel>
	SUB lowLevel, "5"
	SET highLevel, #<num.hostLevel>
    ADD highLevel, "5"
@sellequip2
1: Get anything you want!
; now sell the stuff
	OFFER2 #<lowLevel>,#<highLevel>, 12, #<lowLevel>,#<highLevel>, 10, #<lowLevel>,#<highLevel>, 11, #<lowLevel>,#<highLevel>, 14, #<lowLevel>,#<highLevel>, 15, #<lowLevel>,#<highLevel>, 20,	#<lowLevel>,#<highLevel>, 21,	#<lowLevel>,#<highLevel>, 22,	#<lowLevel>,#<highLevel>, 23
END

@eventactorclick1
COMPARE #<num.hostLevel>, 89
IF> @highlevelmenu
END

@sellequipfix
1: Oh my, you're a very high level...
1: It would be an honor for me to sell anything you'd like to you.
1: Please choose a range of levels to buy from.
1: Right click me later to choose another option.
WAIT 1
@highlevelmenu
MENU "Levels 1-10=@set1","Levels 11-20=@set2","Levels 21-30=@set3","Levels 31-40=@set4","Levels 41-50=@set5","Levels 51-60=@set6","Levels 61-70=@set7","Levels 71-80=@set8","Levels 80+=@set9","More Options=@highlevelmenu2
END

@highlevelmenu2
1: Would you like one of these?
WAIT 0.3
MENU "Swords=@swords","Bows=@bows","Scrolls=@scrolls","Armor=@armor","Helm=@helm","Shields=@shields","Amulets=@amulets","Boots=@boots","Rings=@rings","Back=@sellequipfix"
END

@set1
SET lowLevel, 1
SET highLevel, 10
GOTO @sellequip2

@set2
SET lowLevel, 11
SET highLevel, 20
GOTO @sellequip2

@set3
SET lowLevel, 21
SET highLevel, 30
GOTO @sellequip2

@set4
SET lowLevel, 31
SET highLevel, 40
GOTO @sellequip2

@set5
SET lowLevel, 41
SET highLevel, 50
GOTO @sellequip2

@set6
SET lowLevel, 51
SET highLevel, 60
GOTO @sellequip2

@set7
SET lowLevel, 61
SET highLevel, 70
GOTO @sellequip2

@set8
SET lowLevel, 71
SET highLevel, 80
GOTO @sellequip2

@set9
SET lowLevel, 81
SET highLevel, 99
GOTO @sellequip2

@swords
1: Get anything you want!
OFFER2 1,100,12
END

@bows
1: Get anything you want!
OFFER2 1,100,14
END

@scrolls
1: Get anything you want!
OFFER2 1,100,15
END

@armor
1: Get anything you want!
OFFER2 1,100,11
END

@helm
1: Get anything you want!
OFFER2 1,100,10
END

@shields
1: Get anything you want!
OFFER2 1,100,21
END

@amulets
1: Get anything you want!
OFFER2 1,100,23
END

@boots
1: Get anything you want!
OFFER2 1,100,20
END

@rings
1: Get anything you want!
OFFER2 1,100,22
END

@eventactorclick2
	MENU "Coke=@coke", "Pepsi=@pepsi"
END

@coke
	IF -G74, @notenough
	2: Here you go!
	WAIT 0.5
	N: *Got Coke!*
	GIVE I12
	TAKE G75
	IF -T711, @vending
	2: Thank you for your purchase!
END

@pepsi
	IF -G74, @notenough
	2: Here you go!
	WAIT 0.5
	N: *Got Pepsi!*
	GIVE I13
	TAKE G75
	IF -T711, @vending
	2: Thank you for your purchase!
END

@vending
	2: Now, let's see if you have won a vending machine...
	IF R4, @gotvending
	2: Sorry, you didn't win this time.
	2: Try again soon!
END

@gotvending
	2: CONGRATS! YOU WIN A VENDING MACHINE!
	GIVE T711
	SOUND clap.wav
	1: Wow, awesome. I'll get it delivered to your house!
	H: A drink at anytime..
END

@notenough
	2: I'm sorry, but you don't seem to have enough gold!
END

;--------------------
;
SCENE 42, rome1, SCENE, "PK Shop", 0,0
	ACTOR 1, "PK Shop Man", ronnie, 1,30,80
	1: Welcome to the PK shop.
	COMPARE #<total.pks>, "0"
	IF>, @normal
	1: Oh this is your first time?
	1: In the PK Shop, you may use points that you get from PKs to buy items and equipment.
	1: Some of this is availible elsewhere, but some of it is unique to this place!
	1: In order to buy things, you need to right-click me when I say so.
	1: Every PK you win is worth 100 points.
	1: To get started, I will give you 100 points.
	1: Well, that's all you need to know!
	SET pk.points, 100 
SET current.pks, #<num.hostPKs> 
SET temp.pks, #<num.hostPKs> 
MUL current.pks, 100 
ADD pk.points, #<current.pks> 
SET total.pks, #<current.pks> 
ADD total.pks, 100 
1: You currently have #<pk.points>/#<total.pks> to spend.
1: Get anything you want.
END 
@normal 
SET current.pks, #<num.hostPKs> 
SET temp2.pks, #<current.pks> 
SUB current.pks, #<temp.pks> 
SET temp.pks, #<temp2.pks> 
MUL current.pks, 100 
ADD pk.points, #<current.pks> 
ADD total.pks, #<current.pks>
@start
1: You currently have #<pk.points>/#<total.pks> to spend.
1: Get anything you want.
END

@eventactorclick1
	MENU "Items=@items" "Equipment=@comingsoon"
END

@items
	MENU "Large Potion (10 pts)=@item1" "Large Tea (10 pts)=@item2" "Ultra Potion (25 pts)=@item3" "Ultra Tea (25 pts)=@item4" "Ability Token (100 pts)=@item5" "Omegian Potion (250 pts)=@item6"
END

@item1
	COMPARE #<pk.points>, "10"
	IF< @toomuch
	1: Here you are.
	GIVE I2
	SUB pk.points, 10
	GOTO @start
END

@item2
	COMPARE #<pk.points>, "10"
	IF< @toomuch
	1: Here you are.
	GIVE I4
	SUB pk.points, 10
	GOTO @start
END

@item3
	COMPARE #<pk.points>, "25"
	IF< @toomuch
	1: Here you are.
	GIVE I5
	SUB pk.points, 25
	GOTO @start
END

@item4
	COMPARE #<pk.points>, "25"
	IF< @toomuch
	1: Here you are.
	GIVE I6
	SUB pk.points, 25
	GOTO @start
END

@item5
	COMPARE #<pk.points>, "100"
	IF< @toomuch
	1: Here you are.
	GIVE I213
	SUB pk.points, 100
	GOTO @start
END

@item6
	COMPARE #<pk.points>, "250"
	IF< @toomuch
	1: Here you are.
	GIVE I11
	SUB pk.points, 250
	GOTO @start
END

@comingsoon
	1: Coming soon!
	GOTO @start
END

@toomuch
	1: You cannot afford that.
	1: Pick something else.
	GOTO @start
END

;-----------------------
;
SCENE 500 shadowfaks, SCENE, "Merry Christmas!", 0,0
	ACTOR 1, "Simmen Stenil", ss, 1,30,80
	IF S226, @over
	1: Merry Christmas to you!
	1: Here, please, take this!
	GIVE S226
	N: *Got Spell "Christmas Wishes!"
	1: I hope you are able to use it well!
END

@over
	1: Merry Christmas! I hope you are enjoying your new spell!
END